home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Net Power 1997 October
/
NET_DISC.iso
/
mac
/
HTML Editors
/
BBEdit
/
BBEdit 4.0 Demo.sit
/
BBEdit 4.0 Demo Folder
/
ToolServer Support
/
Copy to MPW folder
/
BBEditStartup•411
< prev
Wrap
Text File
|
1997-03-19
|
3KB
|
85 lines
# BBEditStartupÑ411
# version 2.2d1
# August 21, 1992
# Copyright ⌐1992 Richard M. Siegel
#
# 411 startup script for use with BBEdit 2.2 and ToolServer.
# This script is a modified version of the UserStartupÑHelp script
# that comes with MPW 411. Because of the limitations of ToolServer,
# some functionality is not available, but the basic template and
# lookup functions are available.
# Do not install this script unless you have 411 installed.
# This script is derived from the 411 "UserStartupÑHelp" script,
# copyright ⌐1991, 1992 Apple Computer Inc.
#
# To automatically mount your 411 file server when MPW launches...
#
# Set the "Help_Server" variable to the "zone:server:volume" where your "411"
# help folder resides. Requires the MPW 3.2 Choose command.
#
Set Help_Server "" # "Development Tools:Okefenokee:The Star:"
Set Guest 0 # set to 1 # if you want to log on as guest, else set to 0.
IF "{Help_Server}" != ""
if not "`Exists "{Help_Server}"`"
IF {Guest}
Choose "{Help_Server}" -guest
Else
Choose "{Help_Server}" -u "{User}" -askpw
End
End
End
# Set type of header - default is abreviated header
Set headerStyle -h2 # Set headerStyle -h # Expanded header -lists all files searched
# Specify the help directory
Set HelpDirectory "{ShellDirectory}Help Folder:"
# Get the location of:
# ... the 411 directory,
# ... the current 411 template and
if not "`Exists "{HelpDirectory}"`"
NewFolder "{HelpDirectory}"
End
if "`Exists "{HelpDirectory}"Help_Folder`"
Set Help_Folder "`Catenate "{HelpDirectory}"Help_Folder`"; set filesStatus 0;╢
set exit 0;(set x "`Files "{Help_Folder}"┼Help`") │dev:null; Set filesStatus {status}; ╢
if "{x}" != ""; set filesStatus 1; end; set exit 1; ╢
End
if not "`Exists "{HelpDirectory}"Help_Folder`" || not "`Exists "{Help_Folder}"`" || !{filesStatus}
Set exit 0; Set temp "{Boot}"; Loop; ╢
Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ╢"411╢" folder?")│dev:null`"; ╢
if "{temp}"!=""; Echo -n "{temp}" > "{HelpDirectory}"Help_Folder; ╢
Set Help_Folder "{temp}"; Else; set exit 1; exit; End; ╢
(set x "`Files "{temp}"┼Help`") │dev:null; ╢
if "{x}"==""; Alert 411 - The ╢"{temp}╢" folder does not contain Help files.; else; break; end; End; ╢
set exit 1 ; ╢
End
if not "`Exists "{HelpDirectory}"Help_Files`"
Set exit 0;(Files "{Help_Folder}"┼Help -q)│ dev:null > "{HelpDirectory}"Help_Files;set exit 1
End
Set Help_Folder "`Catenate "{HelpDirectory}"Help_Folder`"
Export HelpDirectory
if not "`Exists "{HelpDirectory}"Help`"
Echo > "{HelpDirectory}"Help
End
# Advise BBEdit that we've started up 411
RBBEdit '411Ñ' ''